home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Production20945812212007.psc / 3-Tier Application / Class / clsReadFile.cls < prev   
Text File  |  2007-12-21  |  2KB  |  52 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsReadFile"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15. Public Function PROC_READ_TXT_FILE_SERVER() As ADODB.Recordset
  16. On Error GoTo PROC_ERR
  17.       Dim rs As ADODB.Recordset
  18.       Set rs = New ADODB.Recordset
  19.       Dim conn As ADODB.Connection
  20.       Set conn = New ADODB.Connection
  21.       conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
  22.                   "DBQ=" & App.Path & ";", "", ""
  23.  
  24.       rs.Open "select * from [server.txt]", conn, adOpenStatic, _
  25.                   adLockReadOnly, adCmdText
  26.       Set PROC_READ_TXT_FILE_SERVER = rs
  27.       Set rs = Nothing
  28.       Set conn = Nothing
  29. Exit Function
  30. PROC_ERR:
  31.     MsgBox err.Description
  32. End Function
  33. Public Function PROC_READ_TXT_FILE_DATABASE() As ADODB.Recordset
  34. On Error GoTo PROC_ERR
  35.       Dim rs As ADODB.Recordset
  36.       Set rs = New ADODB.Recordset
  37.       Dim conn As ADODB.Connection
  38.       Set conn = New ADODB.Connection
  39.       conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
  40.                   "DBQ=" & App.Path & ";", "", ""
  41.  
  42.       rs.Open "select * from [database.txt]", conn, adOpenStatic, _
  43.                   adLockReadOnly, adCmdText
  44.       Set PROC_READ_TXT_FILE_DATABASE = rs
  45.       Set rs = Nothing
  46.       Set conn = Nothing
  47. Exit Function
  48. PROC_ERR:
  49.     MsgBox err.Description
  50. End Function
  51.  
  52.